home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / Moof / Goodies / MPW Goodies / MPW Goodies⁄DTS / CheckedOutFiles < prev    next >
Text File  |  2022-08-05  |  2KB  |  82 lines
  1. #
  2. #    File:        CheckedOutFiles
  3. #
  4. #    Contains:    CheckedOutFiles echos the names of the files checked out modifiable
  5. #                    in the current project.
  6. #
  7. #    Written by:    Bruce Horn, Steve Capps, Larry Kenyon,
  8. #                John Meier, scott douglass, Darin Adler,
  9. #                Paul Mercer, Bryan Stearns, Dave Owens
  10. #
  11. #    Copyright:    © 1988-1989 by Apple Computer, Inc., all rights reserved.
  12. #
  13. #    Change History:
  14. #
  15. #        2/17/89        sad        written from CheckInAll
  16. #
  17. #    To Do:
  18. #        Can’t handle file names with spaces.
  19. #
  20.  
  21. Set Exit 0
  22.  
  23. # the following helps to debug until MPW sends echos to Dev:Console instead of Dev:StdErr
  24. If {Echo} == 1
  25.     Set somewhere "≥≥ '{Worksheet}∂'"
  26. Else
  27.     Set somewhere '≥ Dev:Null'
  28. End
  29.  
  30. Begin
  31.  
  32.     # first get all the check-out directories for the current project
  33.  
  34.     Set CheckOutDirs "`CheckOutDir -r; Set CheckOutDirStatus {Status} ; Echo ""`"
  35.     Exit {CheckOutDirStatus} If {CheckOutDirStatus} != 0
  36.  
  37.     Loop
  38.         Break If "{CheckOutDirs}" !~ / *CheckOutDir +-project ∂'«0,1»([¬:]+∫)®1∂'«0,1» ∂'«0,1»([¬∫]*:)®2∂'«0,1» (≈)®3/
  39.         Set Project "{®1}"
  40.         Set CheckOutDir "{®2}"
  41.         Set CheckOutDirs "{®3}"
  42.  
  43.         # now for each directory, get all modified files in the project
  44.  
  45.         Set Info "`ProjectInfo -s -a "{User}" -m -project "{Project}"; Set ProjectInfoStatus {Status}`"
  46.         # *** check status here
  47.  
  48.         Set FirstNotOpened ""
  49.         Set OthersNotOpened ""
  50.         Loop
  51.             Break If "{Info}" !~ /[¬+]*    ([¬,]+)®1,[0-9.a-z]+∂+ (≈)®2/
  52.             Set File "{®1}"
  53.             Set Info "{®2}"
  54.             If "`Exists "{CheckOutDir}{File}"`" == ""
  55.                 If "{FirstNotOpened}" == ""
  56.                     Set FirstNotOpened "“{File}”"
  57.                 Else
  58.                     Set OthersNotOpened "{OthersNotOpened}, “{File}”"
  59.                 End
  60.             Else
  61.                 Quote "{CheckOutDir}{File}"
  62.             End
  63.         End
  64. #        If "{Info}" != ""
  65. #            Echo "### CheckedOutFiles - Couldn’t parse: " "{Info}" ∑∑  "{Worksheet}"
  66. #            Exit 1
  67. #        End
  68.         If "{FirstNotOpened}" != ""
  69.             If "{OthersNotOpened}" == ""
  70.                 Alert "{FirstNotOpened} is checked out from “`Project -q`” but is not in the directory “{CheckOutDir}”."
  71.             Else
  72.                 Alert "The following files are checked out from “`Project -q`” but are not in the directory “{CheckOutDir}”: {FirstNotOpened}{OthersNotOpened}."
  73.             End
  74.         End
  75.     End
  76.     If "{CheckOutDirs}" != ""
  77.         Echo "### CheckedOutFiles - Couldn’t parse: " "{CheckOutDirs}" ∑∑  "{Worksheet}"
  78.         Exit 1
  79.     End
  80.  
  81. End {somewhere}
  82.